R0108B-CIP 



Amendments to the specification 



Please amend the specification at page 44, line 22, by adding the following new 
paragraphs: 



Example 12. Exemplary computer code. Exemplary computer code from the file 
"Input_output_dev.pm" corresponding to displays such as shown in Figures 7-12: 

# PRINT THE CUTOFF POPUP MENU 
@f ormerrows = (); 

push (@f ormerrows, th ( "DATA : " ) . th(font({ 

-color=>' yellow 1 } , $global { "data_name" } ) ) ) ; 

push (@f ormerrows, th ( "DISPLAY :" ) . th (popup_menu ( 
-name=> 1 view 1 , 

-value=> [ 1 Threshold 1 , 1 Interval 1 , 1 Graphical ' ] , 
-def ault=> ' Graphical 1 ) ) ) ; 

push (@f ormerrows, th ( "CALCULATE :" ) . th (popup_menu ( 
-name=> ' calc_method 1 , 
-value=>[ 'by Accession 1 , 1 by SNPs 1 } , 
-def ault=> 'by Accession 1 ) ) ) ; 

push (@f ormerrows, th ( "CORRELATE :" ) . th (popup_menu ( 
-name=> 1 correl_method 1 , 
-value=> [ 1 Weighted 1 , 1 Unweighted 1 ] , 
-default=> f Weighted l ) ) ) ; 

push (@f ormerrows, th ( "CUTOFF :" ) . th (popup_menu { 
-name=> 1 cutoff 1 , 

-value=>['5%', '10%', ' 15% ' , ' 2 0% • , ' 2 5% 1 , ' 30% ' , ' 4 0% ' , 

, 50% , / 1 NONE 1 ] , 
-default=>'20%' ) ) ) ; 

push (@formerrows, th("WINDOW (cM):") . th (popup_menu ( 
-name=> 1 window_size ' , 

-valuer [ ' 10 ' , ' 20 ' , * 30 1 , » 40 1 , 1 50 ' ] , 
-default=> f 30 1 ) ) ) ; 

print center table ( { -border=> ' 2 1 , -align=>CENTER, - 
bgcolor=> 1 black 1 } , Tr ( \@f ormerrows )) , p, p; 



Exemplary computer code from the file "Input_output_dev.pm" for displaying the 
cutoff line that is found in any of Figures 7-12: 

# DRAW PCT CUTOFF LINE 

DrawPct_Cut ( $closest_pct_value , $im) ; 
$png_data = $im->png; 
$global { "timestamp" } = time; 

open (DISPLAY, ">$ image_dir /$global { 'timestamp 1 } .png") ; 

binmode DISPLAY; 

print DISPLAY $png__data; 
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close DISPLAY; 

} 

sub DrawPct_Cut ( $closest_pct_value , $im) 
{ 

my $pct = $_[0] ; 
my $ image — $_[!]'* 

$image->dashedLine ($indent+15, $pct, $length, $pct, 
$ color { "orange" } ) ; 

$image->dashedLine ( $indent+15, $pct+l, $length, $pct+l, 
$color{ "orange"} ) ; 

#$image->dashedLine ($indent+15, $pct+2, $length, $pct+2, 
$color { "orange" } ) ; 

$image->s tring (gdGiant Font , $indent+5, $pct-14, 

$global{ 'cutoff 1 }, $color { "orange" } ) ; 

} 



LAI-2904979v2 



Page 3 of 26 



App.No. 10/015,167 



